<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>7</cardCount>
<cardID>2957</cardID>
<listID>4894</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on openStackglobal ScrollDownX, ScrollDownYglobal MaxGenerations, PrintEveryGenerationglobal CardWasDeletedput cd field MaxField of cd SetOptions into MaxGenerationsput cd field PrintEveryField of cd SetOptions into PrintEveryGenerationput false into CardWasDeleted-- set coordinates for click on Scroll Down arrow-- of background field "ResultsList"-- used by bg handler "PrintLine":put item 3 to 4 of rect of bg field "ResultsList" into ScrollDownLocput item 1 of ScrollDownLoc-4 into ScrollDownXput item 2 of ScrollDownLoc-4 into ScrollDownYglobal NoNumberField-- for validation of entries in text fields-- NoNumberField = empty: default is "no field caused error"put empty into NoNumberFieldend openStackon NewCardlock screengo to previous cardput the number of card fields into NumberOfFieldsrepeat with FieldID=1 to NumberOfFieldsselect card field FieldIDdoMenu "Copy Field"go next carddoMenu "Paste Field"go previous cardend repeatchoose browse toolrepeat with FieldID=1 to NumberOfFieldsput card field FieldID into card field FieldID of next cardend repeatput the number of bg fields into NumberOfFieldsrepeat with FieldID=1 to NumberOfFieldsput bg field FieldID into bg field FieldID of next cardend repeat-- copy card script only AFTER all fields are copiedget the script of this card -- into CardScriptput it into CardScriptgo to next cardset script of this card to CardScript-- mark as new copy of a card:put empty into bg field "ResultsList"put "[COPY]" into word 1 of bg field "TitleOfGame"-- in 1st word instead of e.g. "after":-- to avoid having the word on the second, i.e. invisible lineset cantDelete of this card to falseunlock screenend NewCardon deleteCardglobal CardWasDeletedput true into CardWasDeletedpass deleteCardend deleteCard</script>
